home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 010 / trivia.arc / GEN.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1985-11-23  |  11.0 KB  |  327 lines
  1. 10  KEY OFF:WIDTH 80
  2. 20  LET X=0
  3. 30  LET Z=0
  4. 40  CLS:COLOR 17:LOCATE 5,36:PRINT "GENERAL"
  5. 50  COLOR 2:LOCATE 7,27:PRINT "This includes anything"
  6. 60  LOCATE 8,27:PRINT "that has to do with anything."
  7. 70  LOCATE 15,27:PRINT "Enter [B] to begin.  Input":LOCATE 15,53:INPUT B$
  8. 80  IF B$="B" THEN 90 ELSE 40
  9. 90  GOTO 2520
  10. 100  G$="CYGNET"
  11. 110  COLOR 2:LOCATE 7,25:PRINT "A young Swan is referred to as a:"
  12. 120  COLOR 3:LOCATE 15,33:PRINT "Input":LOCATE 15,38:INPUT F$
  13. 130  IF F$="CYGNET" THEN 2620 ELSE 2930
  14. 140  G$="20 APRIL 1889"
  15. 150  COLOR 2:LOCATE 7,25:PRINT "When was Adolf Hitler born?"
  16. 160  LOCATE 8,25:PRINT "Format - DD MONTH YEAR"
  17. 170  COLOR 3:LOCATE 15,33:PRINT "Input":LOCATE 15,38:INPUT F$
  18. 180  IF F$="20 APRIL 1889" THEN 2620
  19. 190  IF F$="APRIL 20 1889" THEN 2620 ELSE 2930
  20. 200  G$="CHAMPAGNE"
  21. 210  COLOR 2:LOCATE 7,25:PRINT "What did a 17th century Monk"
  22. 220  LOCATE 8,25:PRINT "named 'Dom Perignon' invent?"
  23. 230  COLOR 3:LOCATE 15,33:PRINT "Input":LOCATE 15,38:INPUT F$
  24. 240  IF F$="CHAMPAGNE" THEN 2620 ELSE 2930
  25. 250  G$="THE KING OF HEARTS"
  26. 260  COLOR 2:LOCATE 7,25:PRINT "In a deck of cards, which is"
  27. 270  LOCATE 8,25:PRINT "the 'Suicide King'?"
  28. 280  COLOR 3:LOCATE 15,33:PRINT "Input":LOCATE 15,38:INPUT F$
  29. 290  IF F$="THE KING OF HEARTS" THEN 2620
  30. 300  IF F$="KING OF HEARTS" THEN 2620
  31. 310  IF F$="HEARTS" THEN 2620 ELSE 2930
  32. 320  G$="JAMES MICHENER"
  33. 330  COLOR 2:LOCATE 7,25:PRINT "The author of such books as 'Return"
  34. 340  LOCATE 8,25:PRINT "to Paradise', 'Centennial' and 'Space' is:"
  35. 350  COLOR 3:LOCATE 15,33:PRINT "Input":LOCATE 15,38:INPUT F$
  36. 360  IF F$="JAMES MICHENER" THEN 2620
  37. 370  IF F$="MICHENER" THEN 2620 ELSE 2930
  38. 380  G$="SIMPLE MINDS"
  39. 390  COLOR 2:LOCATE 7,25:PRINT "Who performed the theme song"
  40. 400  LOCATE 8,25:PRINT "of the movie 'Breakfast Club'?"
  41. 410  COLOR 3:LOCATE 15,33:PRINT "Input":LOCATE 15,38:INPUT F$
  42. 420  IF F$="SIMPLE MINDS" THEN 2620 ELSE 2930
  43. 430  G$="CULLINAN"
  44. 440  COLOR 2:LOCATE 7,25:PRINT "The world's largest diamond weighing"
  45. 450  LOCATE 8,25:PRINT "530.20 carats is the:"
  46. 460  COLOR 3:LOCATE 15,33:PRINT "Input":LOCATE 15,38:INPUT F$
  47. 470  IF F$="CULLINAN" THEN 2620
  48. 480  IF F$="CULLINAN DIAMOND" THEN 2620 ELSE 2930
  49. 490  G$="CONGRESSIONAL MEDAL OF HONOR"
  50. 500  COLOR 2:LOCATE 7,25:PRINT "The highest military award"
  51. 510  LOCATE 8,25:PRINT "given in the U.S. is the:"
  52. 520  COLOR 3:LOCATE 15,33:PRINT "Input":LOCATE 15,38:INPUT F$
  53. 530  IF F$="CONGRESSIONAL MEDAL OF HONOR" THEN 2620 ELSE 2930
  54. 540  G$="ONE MILLION"
  55. 550  COLOR 2:LOCATE 7,25:PRINT "How many Millimeters in a Kilometer?"
  56. 560  COLOR 3:LOCATE 15,33:PRINT "Input":LOCATE 15,38:INPUT F$
  57. 570  IF F$="ONE MILLION" THEN 2620
  58. 580  IF F$="1 MILLION" THEN 2620
  59. 590  IF F$="1000000" THEN 2620 ELSE 2930
  60. 600  G$="NORTH ATLANTIC"
  61. 610  COLOR 2:LOCATE 7,25:PRINT "The Sargasso Sea is in the:"
  62. 620  COLOR 3:LOCATE 15,33:PRINT "Input":LOCATE 15,38:INPUT F$
  63. 630  IF F$="NORTH ATLANTIC" THEN 2620 ELSE 2930
  64. 640  G$="MASTER"
  65. 650  COLOR 2:LOCATE 7,25:PRINT "A boy too young to be called"
  66. 660  LOCATE 8,25:PRINT "'Mr.' is called:"
  67. 670  COLOR 3:LOCATE 15,33:PRINT "Input":LOCATE 15,38:INPUT F$
  68. 680  IF F$="MASTER" THEN 2620 ELSE 2930
  69. 690  G$="IN THE BEGINNING"
  70. 700  COLOR 2:LOCATE 7,25:PRINT "The first three words in the Bible are:"
  71. 710  COLOR 3:LOCATE 15,33:PRINT "Input":LOCATE 15,38:INPUT F$
  72. 720  IF F$="IN THE BEGINNING" THEN 2620 ELSE 2930
  73. 730  G$="MCKINLEY"
  74. 740  COLOR 2:LOCATE 7,25:PRINT "Other than Lincoln and Kennedy,"
  75. 750  LOCATE 8,25:PRINT "what other president was assasinated?"
  76. 760  LOCATE 9,25:PRINT "(Last name only)"
  77. 770  COLOR 3:LOCATE 15,33:PRINT "Input":LOCATE 15,38:INPUT F$
  78. 780  IF F$="MCKINLEY" THEN 2620 ELSE 2930
  79. 790  G$="MARY SHELLY"
  80. 800  COLOR 2:LOCATE 7,25:PRINT "Who wrote 'Frankenstein'?"
  81. 810  COLOR 3:LOCATE 15,33:PRINT "Input":LOCATE 15,38:INPUT F$
  82. 820  IF F$="MARY SHELLY" THEN 2620
  83. 830  IF F$="SHELLY" THEN 2620 ELSE 2930
  84. 840  G$="TWO"
  85. 850  COLOR 2:LOCATE 7,25:PRINT "How many wives did Henry the XIII"
  86. 860  LOCATE 8,25:PRINT "have beheaded?"
  87. 870  COLOR 3:LOCATE 15,33:PRINT "Input":LOCATE 15,38:INPUT F$
  88. 880  IF F$="TWO" THEN 2620
  89. 890  IF F$="2" THEN 2620 ELSE 2930
  90. 900  G$="STERN"
  91. 910  COLOR 2:LOCATE 7,25:PRINT "Another name for 'Aft' on a ship is the:"
  92. 920  COLOR 3:LOCATE 15,33:PRINT "Input":LOCATE 15,38:INPUT F$
  93. 930  IF F$="STERN" THEN 2620 ELSE 2930
  94. 940  G$="1935"
  95. 950  COLOR 2:LOCATE 7,25:PRINT "In what year was the character"
  96. 960  LOCATE 8,25:PRINT "'Donald Duck' born?   (numeric)"
  97. 970  COLOR 3:LOCATE 15,33:PRINT "Input":LOCATE 15,38:INPUT F$
  98. 980  IF F$="1935" THEN 2620 ELSE 2930
  99. 990  G$="AUTOBAHN"
  100. 1000  COLOR 2:LOCATE 7,25:PRINT "A German highway is called an:"
  101. 1010  COLOR 3:LOCATE 15,33:PRINT "Input":LOCATE 15,38:INPUT F$
  102. 1020  IF F$="AUTOBAHN" THEN 2620 ELSE 2930
  103. 1030  G$="TRANSISTOR"
  104. 1040  COLOR 2:LOCATE 7,25:PRINT "The Bell Laboritories invention that"
  105. 1050  LOCATE 8,25:PRINT "replaced the vacuum tube is called the:"
  106. 1060  COLOR 3:LOCATE 15,33:PRINT "Input":LOCATE 15,38:INPUT F$
  107. 1070  IF F$="TRANSISTOR" THEN 2620 ELSE 2930
  108. 1080  G$="ROBERT FULTON"
  109. 1090  COLOR 2:LOCATE 7,25:PRINT "Who invented the first sailable Steamship?"
  110. 1100  COLOR 3:LOCATE 15,33:PRINT "Input":LOCATE 15,38:INPUT F$
  111. 1110  IF F$="ROBERT FULTON" THEN 2620
  112. 1120  IF F$="FULTON" THEN 2620 ELSE 2930
  113. 1130  G$="PHOTOSYNTHESIS"
  114. 1140  COLOR 2:LOCATE 7,25:PRINT "The process plants use to turn sunlight"
  115. 1150  LOCATE 8,25:PRINT "and water into food is called:"
  116. 1160  COLOR 3:LOCATE 15,33:PRINT "Input":LOCATE 15,38:INPUT F$
  117. 1170  IF F$="PHOTOSYNTHESIS" THEN 2620 ELSE 2930
  118. 1180  G$="SOLLERET"
  119. 1190  COLOR 2:LOCATE 7,25:PRINT "The section of a suit of armor that"
  120. 1200  LOCATE 8,25:PRINT "covers the foot is the:"
  121. 1210  COLOR 3:LOCATE 15,33:PRINT "Input":LOCATE 15,38:INPUT F$
  122. 1220  IF F$="SOLLERET" THEN 2620 ELSE 2930
  123. 1230  G$="1910"
  124. 1240  COLOR 2:LOCATE 7,25:PRINT "Prior to 1985, in what year was"
  125. 1250  LOCATE 8,25:PRINT "Halley's Comet last visible from Earth?"
  126. 1260  COLOR 3:LOCATE 15,33:PRINT "Input":LOCATE 15,38:INPUT F$
  127. 1270  IF F$="1910" THEN 2620 ELSE 2930
  128. 1280  G$="BEAUFORT SCALE"
  129. 1290  COLOR 2:LOCATE 7,25:PRINT "A scale in which the force of wind is"
  130. 1300  LOCATE 8,25:PRINT "indicated by numbers from 0 to 12 is the:"
  131. 1310  COLOR 3:LOCATE 15,33:PRINT "Input":LOCATE 15,38:INPUT F$
  132. 1320  IF F$="BEAUFORT SCALE" THEN 2620 ELSE 2930
  133. 1330  G$="ASPIRIN"
  134. 1340  COLOR 2:LOCATE 7,25:PRINT "A white crystalline dirivitive of salicylic"
  135. 1350  LOCATE 8,25:PRINT "acid used as a pain reliever is:"
  136. 1360  COLOR 3:LOCATE 15,33:PRINT "Input":LOCATE 15,38:INPUT F$
  137. 1370  IF F$="ASPIRIN" THEN 2620 ELSE 2930
  138. 1380  G$="OMAHA"
  139. 1390  COLOR 2:LOCATE 7,25:PRINT "Two beaches in the Normandy Invasion"
  140. 1400  LOCATE 8,25:PRINT "were 'Gold' and 'Utah'.  Name the third."
  141. 1410  COLOR 3:LOCATE 15,33:PRINT "Input":LOCATE 15,38:INPUT F$
  142. 1420  IF F$="OMAHA" THEN 2620 ELSE 2930
  143. 1430  G$="WATER"
  144. 1440  COLOR 2:LOCATE 7,25:PRINT "Hydrogen Hydroxide is:"
  145. 1450  COLOR 3:LOCATE 15,33:PRINT "Input":LOCATE 15,38:INPUT F$
  146. 1460  IF F$="WATER" THEN 2620
  147. 1470  IF F$="H2O" THEN 2620 ELSE 2930
  148. 1480  G$="VIRGULE"
  149. 1490  COLOR 2:LOCATE 7,25:PRINT "The proper name for the slantbar (/) is the:"
  150. 1500  COLOR 3:LOCATE 15,33:PRINT "Input":LOCATE 15,38:INPUT F$
  151. 1510  IF F$="VIRGULE" THEN 2620 ELSE 2930
  152. 1520  G$="THEODORE ROOSEVELT"
  153. 1530  COLOR 2:LOCATE 7,25:PRINT "Who was the Teddy Bear named after?"
  154. 1540  COLOR 3:LOCATE 15,33:PRINT "Input":LOCATE 15,38:INPUT F$
  155. 1550  IF F$="THEODORE ROOSEVELT" THEN 2620
  156. 1560  IF F$="TEDDY ROOSEVELT" THEN 2620
  157. 1570  IF F$="ROOSEVELT" THEN 2620
  158. 1580  IF F$="PRESIDENT ROOSEVELT" THEN 2620 ELSE 2930
  159. 1590  G$="JOHN MILTON"
  160. 1600  COLOR 2:LOCATE 7,25:PRINT "The author of 'Paradise Lost' was:"
  161. 1610  COLOR 3:LOCATE 15,33:PRINT "Input":LOCATE 15,38:INPUT F$
  162. 1620  IF F$="JOHN MILTON" THEN 2620
  163. 1630  IF F$="MILTON" THEN 2620 ELSE 2930
  164. 1640  G$="ROYAL FLUSH"
  165. 1650  COLOR 2:LOCATE 7,25:PRINT "The highest possible poker hand is a:"
  166. 1660  COLOR 3:LOCATE 15,33:PRINT "Input":LOCATE 15,38:INPUT F$
  167. 1670  IF F$="ROYAL FLUSH" THEN 2620
  168. 1680  IF F$="ROYAL FLUSH HEARTS" THEN 2620
  169. 1690  IF F$="ROYAL FLUSH OF HEARTS" THEN 2620 ELSE 2930
  170. 1700  G$="CATALYTIC CONVERTER"
  171. 1710  COLOR 2:LOCATE 7,25:PRINT "The part of an automobile that requires"
  172. 1720  LOCATE 8,25:PRINT "the use of unleaded gasoline is called the:"
  173. 1730  COLOR 3:LOCATE 15,33:PRINT "Input":LOCATE 15,38:INPUT F$
  174. 1740  IF F$="CATALYTIC CONVERTER" THEN 2620 ELSE 2930
  175. 1750  G$="JACK LONDON"
  176. 1760  COLOR 2:LOCATE 7,25:PRINT "The author of 'Call of the Wild' was:"
  177. 1770  COLOR 3:LOCATE 15,33:PRINT "Input":LOCATE 15,38:INPUT F$
  178. 1780  IF F$="JACK LONDON" THEN 2620
  179. 1790  IF F$="LONDON" THEN 2620 ELSE 2930
  180. 1800  G$="THE MONKEY TRIALS"
  181. 1810  COLOR 2:LOCATE 7,25:PRINT "Darwin's Theory of Evolution was the"
  182. 1820  LOCATE 8,25:PRINT "center of what great legal trial?"
  183. 1830  COLOR 3:LOCATE 15,33:PRINT "Input":LOCATE 15,38:INPUT F$
  184. 1840  IF F$="THE MONKEY TRIALS" THEN 2620
  185. 1850  IF F$="MONKEY TRIALS" THEN 2620 ELSE 2930
  186. 1860  G$="ACTING"
  187. 1870  COLOR 2:LOCATE 7,25:PRINT "Besides writing, what was Shakespeare's"
  188. 1880  LOCATE 8,25:PRINT "profession?"
  189. 1890  COLOR 3:LOCATE 15,33:PRINT "Input":LOCATE 15,38:INPUT F$
  190. 1900  IF F$="ACTING" THEN 2620 ELSE 2930
  191. 1910  G$="AU"
  192. 1920  COLOR 2:LOCATE 7,25:PRINT "What is the chemical symbol for gold?"
  193. 1930  COLOR 3:LOCATE 15,33:PRINT "Input":LOCATE 15,38:INPUT F$
  194. 1940  IF F$="AU" THEN 2620
  195. 1950  IF F$="Au" THEN 2620 ELSE 2930
  196. 1960  G$="212"
  197. 1970  COLOR 2:LOCATE 7,25:PRINT "In fahrenheit, the temperature for the"
  198. 1980  LOCATE 8,25:PRINT "boiling point of water is how many degrees?"
  199. 1990  COLOR 3:LOCATE 15,33:PRINT "Input":LOCATE 15,38:INPUT F$
  200. 2000  IF F$="212" THEN 2620
  201. 2010  IF F$="212 DEGREES" THEN 2620 ELSE 2930
  202. 2020  G$="ZUES"
  203. 2030  COLOR 2:LOCATE 7,25:PRINT "In Greek mythology, the king of"
  204. 2040  LOCATE 8,25:PRINT "gods and men is:"
  205. 2050  COLOR 3:LOCATE 15,33:PRINT "Input":LOCATE 15,38:INPUT F$
  206. 2060  IF F$="ZUES" THEN 2620 ELSE 2930
  207. 2070  G$="MOST HOLY FATHER"
  208. 2080  COLOR 2:LOCATE 7,25:PRINT "How do you address the Pope when"
  209. 2090  LOCATE 8,25:PRINT "writing a letter?"
  210. 2100  COLOR 3:LOCATE 15,33:PRINT "Input":LOCATE 15,38:INPUT F$
  211. 2110  IF F$="MOST HOLY FATHER" THEN 2620 ELSE 2930
  212. 2120  G$="AUGUSTUS"
  213. 2130  COLOR 2:LOCATE 7,25:PRINT "Who was the first Roman Emporer?"
  214. 2140  COLOR 3:LOCATE 15,33:PRINT "Input":LOCATE 15,38:INPUT F$
  215. 2150  IF F$="AUGUSTUS" THEN 2620 ELSE 2930
  216. 2160  G$="JOHN RONALD REUEL"
  217. 2170  COLOR 2:LOCATE 7,25:PRINT "J.R.R. Tolkien is best-known for his book"
  218. 2180  LOCATE 8,25:PRINT "'The Hobbit'.  What does J.R.R. stand for?"
  219. 2190  COLOR 3:LOCATE 15,33:PRINT "Input":LOCATE 15,38:INPUT F$
  220. 2200  IF F$="JOHN RONALD REUEL" THEN 2620 ELSE 2930
  221. 2210  G$="BIT"
  222. 2220  COLOR 2:LOCATE 7,25:PRINT "Computers carry out all calculations"
  223. 2230  LOCATE 8,25:PRINT "using binary arithmetic.  The smallest"
  224. 2240  LOCATE 9,25:PRINT "unit of information a computer deals with"
  225. 2250  LOCATE 10,25:PRINT "is called a:"
  226. 2260  COLOR 3:LOCATE 15,33:PRINT "Input":LOCATE 15,38:INPUT F$
  227. 2270  IF F$="BIT" THEN 2620
  228. 2280  IF F$="NYBBLE" THEN 2620 ELSE 2930
  229. 2290  G$="DIRECT CURRENT"
  230. 2300  COLOR 2:LOCATE 7,25:PRINT "In electronics, 'DC' stands for:"
  231. 2310  COLOR 3:LOCATE 15,33:PRINT "Input":LOCATE 15,38:INPUT F$
  232. 2320  IF F$="DIRECT CURRENT" THEN 2620 ELSE 2930
  233. 2330  G$="90 BAUD"
  234. 2340  COLOR 2:LOCATE 7,25:PRINT "At what baud rate does a Telex"
  235. 2350  LOCATE 8,25:PRINT "machine operate?"
  236. 2360  COLOR 3:LOCATE 15,33:PRINT "Input":LOCATE 15,38:INPUT F$
  237. 2370  IF F$="90" THEN 2620
  238. 2380  IF F$="90 BAUD" THEN 2620 ELSE 2930
  239. 2390  G$="6"
  240. 2400  COLOR 2:LOCATE 7,25:PRINT "How many Wide Area Telecommunications"
  241. 2410  LOCATE 8,25:PRINT "Services (WATS) bands are there in"
  242. 2420  LOCATE 9,25:PRINT "existence today?"
  243. 2430  COLOR 3:LOCATE 15,33:PRINT "Input":LOCATE 15,38:INPUT F$
  244. 2440  IF F$="6" THEN 2620
  245. 2450  IF F$="SIX" THEN 2620 ELSE 2930
  246. 2460  G$="5"
  247. 2470  COLOR 2:LOCATE 7,25:PRINT "In music, a staff is made up of"
  248. 2480  LOCATE 8,25:PRINT "how many lines?"
  249. 2490  COLOR 3:LOCATE 15,33:PRINT "Input":LOCATE 15,38:INPUT F$
  250. 2500  IF F$="5" THEN 2620
  251. 2510  IF F$="FIVE" THEN 2620 ELSE 2930
  252. 2520  CLS:GOSUB 100:GOSUB 140:GOSUB 200:GOSUB 250:GOSUB 320:GOSUB 380
  253. 2530  GOSUB 430:GOSUB 490:GOSUB 540:GOSUB 600:GOSUB 640:GOSUB 690
  254. 2540  GOSUB 730:GOSUB 790:GOSUB 840:GOSUB 900:GOSUB 940:GOSUB 990
  255. 2550  GOSUB 1030:GOSUB 1080:GOSUB 1130:GOSUB 1180:GOSUB 1230:GOSUB 1280
  256. 2560  GOSUB 1330:GOSUB 1380:GOSUB 1430:GOSUB 1480:GOSUB 1520
  257. 2570  GOSUB 1590:GOSUB 1640:GOSUB 1700:GOSUB 1750:GOSUB 1800
  258. 2580  GOSUB 1860:GOSUB 1910:GOSUB 1960:GOSUB 2020:GOSUB 2070
  259. 2590  GOSUB 2120:GOSUB 2160:GOSUB 2210:GOSUB 2290:GOSUB 2330
  260. 2600  GOSUB 2390:GOSUB 2460
  261. 2610  GOTO 3060
  262. 2620  GOSUB 2630:GOTO 2810
  263. 2630  CLS:LET L$=CHR$(186)+SPACE$(29)+CHR$(186)
  264. 2640  COLOR 5:LOCATE 5,1,0:PRINT TAB(25);CHR$(201);STRING$(29,205);CHR$(187)
  265. 2650  COLOR 1:PRINT TAB(25);L$
  266. 2660  COLOR 2:PRINT TAB(25);L$
  267. 2670  COLOR 3:PRINT TAB(25);L$
  268. 2680  COLOR 4:PRINT TAB(25);L$
  269. 2690  COLOR 6:PRINT TAB(25);L$
  270. 2700  COLOR 7:PRINT TAB(25);L$
  271. 2710  COLOR 8:PRINT TAB(25);L$
  272. 2720  COLOR 9:PRINT TAB(25);L$
  273. 2730  COLOR 10:PRINT TAB(25);L$
  274. 2740  COLOR 11:PRINT TAB(25);L$
  275. 2750  COLOR 12:PRINT TAB(25);L$
  276. 2760  COLOR 13:PRINT TAB(25);L$
  277. 2770  COLOR 14:PRINT TAB(25);L$
  278. 2780  COLOR 2:PRINT TAB(25);L$
  279. 2790  PRINT TAB(25);CHR$(200);STRING$(29,205);CHR$(188)
  280. 2800  RETURN
  281. 2810  PLAY "T180 O6 < A8 B8 > C8 D8 P8 C8 D2"
  282. 2820  COLOR 18:LOCATE 7,36:PRINT "CORRECT"
  283. 2830  LET X=X+1:COLOR 6:LOCATE 9,34:PRINT "Your Status"
  284. 2840  COLOR 2:LOCATE 11,28:PRINT "CORRECT"
  285. 2850  COLOR 4:LOCATE 11,43:PRINT "INCORRECT"
  286. 2860  COLOR 6:LOCATE 13,30:PRINT X:LOCATE 13,46:PRINT Z
  287. 2870  LOCATE 17,27:PRINT "Enter [N] for next question"
  288. 2880  LOCATE 18,27:PRINT "or [Q] to quit.  Input
  289. 2890  LOCATE 18,49:INPUT Q$
  290. 2900  IF Q$="N" THEN 2920
  291. 2910  IF Q$="Q" THEN 3060 ELSE 2870
  292. 2920  CLS:RETURN
  293. 2930  GOSUB 2630
  294. 2940  PLAY "O1 A4"
  295. 2950  COLOR 20:LOCATE 7,35:PRINT "INCORRECT"
  296. 2960  LET Z=Z+1:COLOR 6:LOCATE 9,34:PRINT "Your Status"
  297. 2970  COLOR 2:LOCATE 11,28:PRINT "CORRECT"
  298. 2980  COLOR 4:LOCATE 11,43:PRINT "INCORRECT"
  299. 2990  COLOR 6:LOCATE 13,30:PRINT X:LOCATE 13,46:PRINT Z
  300. 3000  LOCATE 17,27:PRINT "Enter [N] for next question"
  301. 3010  LOCATE 18,27:PRINT "or [Q] to quit.  Input"
  302. 3020  COLOR 2:LOCATE 21,27:PRINT "The Answer was:":COLOR 3:LOCATE 21,43:PRINT G$
  303. 3030  COLOR 6:LOCATE 18,49:INPUT Q$
  304. 3040  IF Q$="N" THEN 2920
  305. 3050  IF Q$="Q" THEN 3060 ELSE 3000
  306. 3060  CLS:IF X=46 THEN 3160 ELSE 3070
  307. 3070  GOSUB 2630
  308. 3080  PLAY "T180 O5 < A8 B8 > C8 D8 P8 C8 D2"
  309. 3090  COLOR 6:LOCATE 9,35:PRINT "Your Score"
  310. 3100  COLOR 2:LOCATE 11,28:PRINT "CORRECT"
  311. 3110  COLOR 4:LOCATE 11,43:PRINT "INCORRECT"
  312. 3120  COLOR 6:LOCATE 13,30:PRINT X:LOCATE 13,46:PRINT Z
  313. 3130  LOCATE 17,27:PRINT "Enter [X] to Exit.  Input"
  314. 3140  LOCATE 17,52:INPUT Y$
  315. 3150  IF Y$="X" THEN 3260 ELSE 3130
  316. 3160  GOSUB 2630
  317. 3170  PLAY "T180 O1 < A8 B8 > C8 D8 P8 C8 D2"
  318. 3180  PLAY "T180 O2 < A8 B8 > C8 D8 P8 C8 D2"
  319. 3190  PLAY "T180 O3 < A8 B8 > C8 D8 P8 C8 D2"
  320. 3200  COLOR 17:LOCATE 6,32:PRINT "CONGRADULATIONS!"
  321. 3210  COLOR 20:LOCATE 7,33:PRINT "PERFECT SCORE!"
  322. 3220  PLAY "T180 O4 < A8 B8 > C8 D8 P8 C8 D2"
  323. 3230  PLAY "T180 O5 < A8 B8 > C8 D8 P8 C8 D2"
  324. 3240  PLAY "T180 O6 < A8 B8 > C8 D8 P8 C8 D1"
  325. 3250  GOTO 3090
  326. 3260  CLS:COLOR 6:PRINT "One moment please...":LOAD"QUIZZLE",R
  327.